home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 010a / lamenu10.zip / LAMENU8.BC < prev    next >
Text File  |  1991-01-26  |  7KB  |  405 lines
  1. echo \\27[44;37m
  2. cls
  3. let %!z = %1.dsp
  4. read_file %!x %!z
  5. let %!j = %!x
  6. read_file %!x
  7. let %!a = %!x
  8. read_file %!x
  9. let %!b = %!x
  10. read_file %!x
  11. let %!c = %!x
  12. read_file %!x
  13. let %!d = %!x
  14. read_file %!x
  15. let %!e = %!x
  16. read_file %!x
  17. let %!f = %!x
  18. read_file %!x
  19. let %!g = %!x
  20. read_file %!x
  21. let %!i = %!x
  22. :start
  23. cls
  24. locate 1 2
  25. echonolf La Menu System v1.0
  26. lmdt
  27. gosub time
  28. locate 2 4
  29. echo By Bill Mezian
  30. locate 3 1
  31. echonolf ╞═══════════════════════════════════════
  32. echo ═══════════════════════════════════════╡
  33. let %!n = %!j
  34. string_length %!n
  35. sub %!n 80
  36. abs %!n
  37. div %!n 2
  38. locate 5 %!n
  39. echo %!j
  40. :begin
  41. locate 10 29
  42. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  43. locate 11 29
  44. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  45. locate 12 29
  46. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  47. locate 13 29
  48. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  49. locate 14 29
  50. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  51. locate 15 29
  52. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  53. locate 16 29
  54. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  55. locate 17 29
  56. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  57. locate 20 13
  58. echonolf \\27[44;37mUse Arrow Keys \\24\\25 to\\0
  59. echo \\27[46;30mHighlight Selection\\27[44;37m and Press Enter
  60. locate 24 25
  61. echonolf \\27[46;30m[ESC]\\27[44;37m To Return To The Menu
  62. if %RC% == 1 goto u_arw_2
  63. if %RC% == 2 goto d_arw_1
  64. if %RC% == 3 goto d_arw_2
  65. if %RC% == 4 goto d_arw_3
  66. if %RC% == 5 goto d_arw_4
  67. if %RC% == 6 goto d_arw_5
  68. if %RC% == 7 goto d_arw_6
  69. if %RC% == 8 goto d_arw_7
  70. :1_start
  71. locate 10 29
  72. echonolf \\27[46;30m══* %!a\\27[44;37m
  73. locate 10 32
  74. getkey
  75. error_level %!q
  76. gosub 1_test
  77. goto 1_start
  78. :u_arw_1
  79. gosub time
  80. locate 10 29
  81. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  82. locate 17 29
  83. echonolf \\27[46;30m══* %!i\\27[44;37m
  84. locate 17 32
  85. getkey
  86. error_level %!q
  87. gosub 8_test
  88. goto u_arw_1
  89. :d_arw_1
  90. gosub time
  91. locate 10 29
  92. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  93. locate 11 29
  94. echonolf \\27[46;30m══* %!b\\27[44;37m
  95. locate 11 32
  96. getkey
  97. error_level %!q
  98. gosub 2_test
  99. goto d_arw_1
  100. :u_arw_2
  101. gosub time
  102. locate 11 29
  103. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  104. locate 10 29
  105. echonolf \\27[46;30m══* %!a\\27[44;37m
  106. locate 10 32
  107. getkey
  108. error_level %!q
  109. gosub 1_test
  110. goto u_arw_2
  111. :d_arw_2
  112. gosub time
  113. locate 11 29
  114. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  115. locate 12 29
  116. echonolf \\27[46;30m══* %!c\\27[44;37m
  117. locate 12 32
  118. getkey
  119. error_level %!q
  120. gosub 3_test
  121. goto d_arw_2
  122. :u_arw_3
  123. gosub time
  124. locate 12 29
  125. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  126. locate 11 29
  127. echonolf \\27[46;30m══* %!b\\27[44;37m
  128. locate 11 32
  129. getkey
  130. error_level %!q
  131. gosub 2_test
  132. goto u_arw_3
  133. :d_arw_3
  134. gosub time
  135. locate 12 29
  136. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  137. locate 13 29
  138. echonolf \\27[46;30m══* %!d\\27[44;37m
  139. locate 13 32
  140. getkey
  141. error_level %!q
  142. gosub 4_test
  143. goto d_arw_3
  144. :u_arw_4
  145. gosub time
  146. locate 13 29
  147. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  148. locate 12 29
  149. echonolf \\27[46;30m══* %!c\\27[44;37m
  150. locate 12 32
  151. getkey
  152. error_level %!q
  153. gosub 3_test
  154. goto u_arw_4
  155. :d_arw_4
  156. gosub time
  157. locate 13 29
  158. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  159. locate 14 29
  160. echonolf \\27[46;30m══* %!e\\27[44;37m
  161. locate 14 32
  162. getkey
  163. error_level %!q
  164. gosub 5_test
  165. goto d_arw_4
  166. :u_arw_5
  167. gosub time
  168. locate 14 29
  169. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  170. locate 13 29
  171. echonolf \\27[46;30m══* %!d\\27[44;37m
  172. locate 13 32
  173. getkey
  174. error_level %!q
  175. gosub 4_test
  176. goto u_arw_5
  177. :d_arw_5
  178. gosub time
  179. locate 14 29
  180. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  181. locate 15 29
  182. echonolf \\27[46;30m══* %!f\\27[44;37m
  183. locate 15 32
  184. getkey
  185. error_level %!q
  186. gosub 6_test
  187. goto d_arw_5
  188. :u_arw_6
  189. gosub time
  190. locate 15 29
  191. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  192. locate 14 29
  193. echonolf \\27[46;30m══* %!e\\27[44;37m
  194. locate 14 32
  195. getkey
  196. error_level %!q
  197. gosub 5_test
  198. goto u_arw_6
  199. :d_arw_6
  200. gosub time
  201. locate 15 29
  202. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  203. locate 16 29
  204. echonolf \\27[46;30m══* %!g\\27[44;37m
  205. locate 16 32
  206. getkey
  207. error_level %!q
  208. gosub 7_test
  209. goto d_arw_6
  210. :u_arw_7
  211. gosub time
  212. locate 16 29
  213. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  214. locate 15 29
  215. echonolf \\27[46;30m══* %!f\\27[44;37m
  216. locate 15 32
  217. getkey
  218. error_level %!q
  219. gosub 6_test
  220. goto u_arw_7
  221. :d_arw_7
  222. gosub time
  223. locate 16 29
  224. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  225. locate 17 29
  226. echonolf \\27[46;30m══* %!i\\27[44;37m
  227. locate 17 32
  228. getkey
  229. error_level %!q
  230. gosub 8_test
  231. goto d_arw_7
  232. :u_arw_8
  233. gosub time
  234. locate 17 29
  235. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  236. locate 16 29
  237. echonolf \\27[46;30m══* %!g\\27[44;37m
  238. locate 16 32
  239. getkey
  240. error_level %!q
  241. gosub 7_test
  242. goto u_arw_8
  243. :d_arw_8
  244. gosub time
  245. locate 17 29
  246. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  247. locate 10 29
  248. echonolf \\27[46;30m══* %!a\\27[44;37m
  249. locate 10 32
  250. getkey
  251. error_level %!q
  252. gosub 1_test
  253. goto d_arw_8
  254. :1_test
  255. if %!q = 18432 goto u_arw_1
  256. if %!q = 20480 goto d_arw_1
  257. if %!q = 27 goto end
  258. set RC=1
  259. if %!q = 13 goto 1
  260. gosub time
  261. return
  262. :2_test
  263. if %!q = 18432 goto u_arw_2
  264. if %!q = 20480 goto d_arw_2
  265. if %!q = 27 goto end
  266. set RC=2
  267. if %!q = 13 goto 2
  268. gosub time
  269. return
  270. :3_test
  271. if %!q = 18432 goto u_arw_3
  272. if %!q = 20480 goto d_arw_3
  273. if %!q = 27 goto end
  274. set RC=3
  275. if %!q = 13 goto 3
  276. gosub time
  277. return
  278. :4_test
  279. if %!q = 18432 goto u_arw_4
  280. if %!q = 20480 goto d_arw_4
  281. if %!q = 27 goto end
  282. set RC=4
  283. if %!q = 13 goto 4
  284. gosub time
  285. return
  286. :5_test
  287. if %!q = 18432 goto u_arw_5
  288. if %!q = 20480 goto d_arw_5
  289. if %!q = 27 goto end
  290. set RC=5
  291. if %!q = 13 goto 5
  292. gosub time
  293. return
  294. :6_test
  295. if %!q = 18432 goto u_arw_6
  296. if %!q = 20480 goto d_arw_6
  297. if %!q = 27 goto end
  298. set RC=6
  299. if %!q = 13 goto 6
  300. gosub time
  301. return
  302. :7_test
  303. if %!q = 18432 goto u_arw_7
  304. if %!q = 20480 goto d_arw_7
  305. if %!q = 27 goto end
  306. set RC=7
  307. if %!q = 13 goto 7
  308. gosub time
  309. return
  310. :8_test
  311. if %!q = 18432 goto u_arw_8
  312. if %!q = 20480 goto d_arw_8
  313. if %!q = 27 goto end
  314. set RC=8
  315. if %!q = 13 goto 8
  316. gosub time
  317. return
  318. :time
  319. hour_hour
  320. error_level %!h
  321. minute_minute
  322. error_level %!t
  323. let %!k = %!h
  324. if %!t == 0 let %!t = 00
  325. if %!t == 1 let %!t = 01
  326. if %!t == 2 let %!t = 02
  327. if %!t == 3 let %!t = 03
  328. if %!t == 4 let %!t = 04
  329. if %!t == 5 let %!t = 05
  330. if %!t == 6 let %!t = 06
  331. if %!t == 7 let %!t = 07
  332. if %!t == 8 let %!t = 08
  333. if %!t == 9 let %!t = 09
  334. let %!p = AM
  335. GT %!k 12
  336. if errorlevel 1 let %!p = PM
  337. if %!h == 0 let %!p = AM
  338. if %!p == PM sub %!h 12
  339. if %!h == 12 let %!p = PM
  340. if %!h == 0 let %!h = 12
  341. locate 1 68
  342. echonolf \\27[44;37m%!h\\58
  343. echonolf %!t  %!p\\0
  344. echo
  345. return
  346. :1
  347. cls
  348. if %!a = * goto start
  349. locate 25 5
  350. echo Loading %!a - Please Wait
  351. set lm=1
  352. exit
  353. :2
  354. cls
  355. if %!b = * goto start
  356. locate 25 5
  357. echo Loading %!b - Please Wait
  358. set lm=2
  359. exit
  360. :3
  361. cls
  362. if %!c = * goto start
  363. locate 25 5
  364. echo Loading %!c - Please Wait
  365. set lm=3
  366. exit
  367. :4
  368. cls
  369. if %!d = * goto start
  370. locate 25 5
  371. echo Loading %!d - Please Wait
  372. set lm=4
  373. exit
  374. :5
  375. cls
  376. if %!e = * goto start
  377. locate 25 5
  378. echo Loading %!e - Please Wait
  379. set lm=5
  380. exit
  381. :6
  382. cls
  383. if %!f = * goto start
  384. locate 25 5
  385. echo Loading %!f - Please Wait
  386. set lm=6
  387. exit
  388. :7
  389. cls
  390. if %!g = * goto start
  391. locate 25 5
  392. echo Loading %!g - Please Wait
  393. set lm=7
  394. exit
  395. :8
  396. cls
  397. if %!i = * goto start
  398. locate 25 5
  399. echo Loading %!i - Please Wait
  400. set lm=8
  401. exit
  402. :end
  403. set LM=EX
  404. cls
  405.